﻿Public Class Mesa

    Private _Nombre As String
    Private _Descripicon As String
    Private _Capacidad As Integer

    Public Property Nombre As String
        Get
            Return _Nombre
        End Get
        Set(value As String)

            If _Nombre < 2 Then
                _Nombre = "Error"
            End If
            _Nombre = value
        End Set
    End Property

    Public Property Descripcion As String
        Get
            Return _Descripicon
        End Get
        Set(value As String)

            If _Descripicon < 2 Then
                _Descripicon = "Error"
            End If
            _Descripicon = value

        End Set
    End Property

    Public Property Capacidad As Integer
        Get
            Return _Capacidad
        End Get
        Set(value As Integer)

            If _Capacidad > 30 OrElse _Capacidad < 1 Then
                _Capacidad = "Error"
            End If
            _Capacidad = value
        End Set
    End Property

    Public Sub New(ByVal nombre, ByVal descripcion, ByVal capacidad)
        _Nombre = nombre
        _Descripicon = descripcion
        _Capacidad = capacidad
    End Sub

End Class
